(command-line): Call delete-key-deletes-forward-mode,

if appropriate.

diff --git a/lisp/startup.el b/lisp/startup.el
index 6978855bd932d5e11c4f808a4822fa514d66ab40..06ed24620b287cbba7a1031353cda4a70824636d 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -767,6 +767,12 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
     (setq-default blink-cursor t)
     (blink-cursor-mode 1))
 
+  (when (and (not noninteractive)
+            (not (eq system-type 'ms-dos))
+            (memq window-system '(x)))
+    (setq-default delete-key-deletes-forward (x-backspace-delete-keys-p))
+    (delete-key-deletes-forward-mode 1))
+
   (when (and (not noninteractive)
             (display-graphic-p)
             (fboundp 'x-show-tip))